home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / morbith.lha / JAQUES.AMS / JAQUES.amosSourceCode < prev    next >
AMOS Source Code  |  1980-01-01  |  3KB  |  94 lines
  1. Screen Open 0,320,256,32,Lowres : Randomize Timer
  2. Get Sprite Palette : Flash Off : Curs Off : Cls 0
  3. Double Buffer : Dim SCORE(10) : Dim SCORE$(10) : Dim GOUD(10)
  4. Bob 8,161,139,Rnd(10)+1 : Channel 8 To Bob 8
  5. Bob 9,140,96,Rnd(9)+12 : Channel 9 To Bob 9
  6. Bob 10,183,87,Rnd(9)+12 : Channel 10 To Bob 10
  7. Bob 11,125,122,22 : Channel 13 To Bob 13
  8. Bob 12,340,340,27 : Channel 12 To Bob 12
  9. Bob 13,150,150,26 : Hide : Channel 11 To Bob 11
  10. Amal 8,"A 0,(1,5)(2,5)(3,5)(4,5)(5,5)(6,5)(7,5)(8,5)(9,5)(10,5)(11,5)"
  11. Amal 9,"A 0,(12,7)(13,7)(14,7)(15,7)(16,7)(17,7)(18,7)(19,7)(20,7)(21,7)"
  12. Amal 10,"A 0,(21,5)(20,5)(19,5)(18,5)(17,5)(16,5)(15,5)(14,5)(13,5)(12,5)"
  13. Amal 11,"A 0,(22,6)(23,7)(24,8)(23,7)"
  14. Amal 12,"R:M 300,0,50 ; M-300,0,50 ; J R"
  15. Amal 13,"R:M XM-128-X,YM-42-Y,8;J R"
  16. Amal On : Paper 0 : Rem Hide 
  17. Rem Change Mouse 2 : 
  18. SNOT:
  19. Cls 0 : Paste Bob 70,20,25 : X=0 : Y=0 : KOGEL=50 : Pen 15 : PUNTEN=0 : PUNTEN$=""
  20. Locate 0,0 : Input "Geef mij je naam:";PUNTEN$ : Curs Off : GOLDA=0 : GOLDY=200 : GOLDX=20 : GOUD=0
  21. Locate 0,0 : Print "                                                                  "
  22. Locate 0,30 : Print "By Pressman"
  23. HIER:
  24. X Mouse=X Mouse-Rnd(1) : Y Mouse=Y Mouse-Rnd(1)
  25. X Mouse=X Mouse+Rnd(1) : Y Mouse=Y Mouse+Rnd(1)
  26. If Mouse Key>0 Then Gosub TEST : KOGEL=KOGEL-1
  27. If KOGEL<1 Then Locate 0,0 : Print "Punten:";PUNTEN;"   Kogels:";KOGEL;"  " : Wait 50 : Goto SCORE
  28. Goto HIER
  29.  
  30. TEST:
  31. Rem kijk of er raak geschoten is 
  32. Shoot 
  33. If Bob Col(12,12 To 13)<>0 and SCHIJT=1 Then KOGEL=KOGEL+7 : Bob 12,340,340,27 : Pen 19 : Locate 0,2 : Print "KOGELS!!!" : Wait 10 : Locate 0,2 : Print "          " : Pen 15 : Locate 0,0 : Print "Punten:";PUNTEN;"  Kogels:";KOGEL : Return 
  34. If Bob Col(12,12 To 13)<>0 and SCHIJT=2 Then GOLD=GOLD+1 : Bob 12,340,340,28 : Pen 19 : Locate 0,2 : Print "Gold" : Wait 10 : Locate 0,2 : Print "     " : Pen 15 : Paste Bob 20,GOLDY,28 : GOLDY=GOLDY-4 : Return 
  35. If Bob Col(13)<>0 Then PUNTEN=PUNTEN+Rnd(75) : Pen 16 : Locate 0,2 : Print "AUW!" : Wait 5 : Locate 0,2 : Print "    " : Pen 15
  36. If Bob Col(13)<>0 Then ZWART=Rnd(15) : If ZWART=0 Then SCHIJT=1 : Bob 12,Rnd(280)+20,Rnd(206)+20,27
  37. If Bob Col(13)<>0 and ZWART=1 Then SCHIJT=2 : Bob 12,Rnd(280)+20,Rnd(206)+20,28
  38. Locate 0,0 : Print "Punten:";PUNTEN;"  Kogels:";KOGEL-1;"  Speler:";PUNTEN$
  39. Return 
  40.  
  41. SCORE:
  42. Rem kijk of de scores bestaan
  43. If Exist("jaques.pnt") Then Gosub HAP : Goto WIPPIE
  44. SCORE(1)=PUNTEN : SCORE$(1)=PUNTEN$ : GOUD(1)=GOLD : Goto HAP2
  45.  
  46. WIPPIE:
  47. Rem vergelijk de scores
  48. For T=1 To 10
  49. If PUNTEN>SCORE(T) Then Goto CHANGE
  50. Next T
  51. Goto HAP2
  52.  
  53.  
  54. HAP:
  55. Open In 1,"jaques.pnt"
  56. For X=1 To 10
  57. Input #1,SCORE(X)
  58. Input #1,SCORE$(X)
  59. Input #1,GOUD(X)
  60. Next X
  61. Close 1
  62. Return 
  63.  
  64. HAP2:
  65. Open Out 1,"jaques.pnt"
  66. For X=1 To 10
  67. Print #1,SCORE(X)
  68. Print #1,SCORE$(X)
  69. Print #1,GOUD(X)
  70. Next X
  71. Close 1
  72. Unpack 2 To 1
  73.  
  74.  
  75. Pen 15 : Paper 0
  76. For YO=1 To 10
  77. Locate 0,1 : Centre "DE PUNTEN:"
  78. Locate 7,YO+5 : Print YO;")";SCORE$(YO);SCORE(YO);"      Goud:";GOUD(YO)
  79. Next YO
  80. Locate 7,25 : Input "Nog een keer (j/n)";JN$
  81. If Lower$(JN$)="j" Then Screen Close 1 : Goto SNOT
  82. End 
  83.  
  84. CHANGE:
  85. Rem verplaats de scores 1  
  86. For Z=10 To T Step -1
  87.  
  88. SCORE(Z)=SCORE(Z-1)
  89. SCORE$(Z)=SCORE$(Z-1)
  90. GOUD(Z)=GOUD(Z-1)
  91. Next Z
  92. SCORE(T)=PUNTEN : SCORE$(T)=PUNTEN$
  93. GOUD(T)=GOLD
  94. Goto HAP2